home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #269 (1993)(Rhein-Sieg-Soft)(Disk 1 of 2).zip / Franz PD Disk #269 (1993)(Rhein-Sieg-Soft)(Disk 1 of 2).adf / Wortspiele / Was`n_das?V2.0 / Was`n_das?V2.amosSourceCode < prev   
AMOS Source Code  |  1993-10-11  |  4KB  |  230 lines
  1. Screen Open 0,640,265,16,Hires
  2. Dim B$(18),FREI(16)
  3. Poke $BFE001,254
  4. Colour 1,$0
  5. Dir$="Words/"
  6. Gosub LOARD
  7. WRONG=1
  8. OUTOF=1
  9. RIGHT=1
  10. HUT=1
  11. MUT=1
  12. NUTTE=1
  13. Double Buffer 
  14. Autoback 1
  15. TP:
  16. GT=1
  17. VT=2
  18. Print At(0,0);"Try No.:"
  19. Print At(70,0);"Lost Time:"
  20. Gosub TIMEOUT
  21. Gosub FALSCH
  22. Gosub RRICHTIG
  23. Gosub LORD
  24. T$=Upper$(T$)
  25. Timer=0
  26. OPA=1
  27. TEST:
  28. T$=Upper$(T$)
  29. For I=1 To 16
  30.    FREI(I)=True
  31. Next 
  32. N=1
  33. Repeat 
  34.    WO=Rnd(Len(T$))
  35.    If FREI(WO)=True
  36.       Locate WO+36,11 : K$=Mid$(T$,N,1)
  37.                       Print K$
  38.       FREI(WO)=False
  39.       Inc N
  40.    End If 
  41. Until N>Len(T$)
  42. Paste Bob 145,0,33
  43. Paste Bob 180,0,11
  44. Paste Bob 215,0,29
  45. Paste Bob 250,0,48
  46. Paste Bob 285,0,24
  47. Rem Paste Bob 320,0,28 
  48. Paste Bob 355,0,14
  49. Paste Bob 390,0,11
  50. Paste Bob 425,0,29
  51. Paste Bob 460,0,42
  52. Paste Bob 250,35,32
  53. Paste Bob 285,35,3
  54. Paste Bob 330,35,40
  55. Paste Bob 355,35,1
  56. NEU:
  57. Rem Print At(37,G+11);K$ 
  58. Curs Off 
  59. Change Mouse 2
  60. Reserve Zone 30
  61. Get Sprite Palette 
  62. Flash Off 
  63. Colour 1,$0
  64. NR=11
  65. B=1
  66. X=0
  67. Paste Bob 0,200,NR
  68. Set Zone B,0,200 To X+35,235
  69. For I=1 To 12
  70. X=X+35
  71. NR=NR+1
  72. B=B+1
  73. Paste Bob X,200,NR
  74. Set Zone B,0,200 To X+35,235
  75. Next I
  76. X=0
  77. NR=NR+1
  78. B=B+1
  79. Paste Bob 0,235,NR
  80. Set Zone B,0,235 To X+35,270
  81. For I=1 To 12
  82. X=X+35
  83. NR=NR+1
  84. B=B+1
  85. Paste Bob X,235,NR
  86. Set Zone B,0,235 To X+35,270
  87. Next I
  88. X=X+70
  89. P=X
  90. Paste Bob X,200,27
  91. X=X+35
  92. Paste Bob X,200,31
  93. X=X+35
  94. Paste Bob X,200,19
  95. X=X+35
  96. Paste Bob X,200,30
  97. Set Zone B+1,P,200 To X+35,235
  98. P=P+35
  99. Paste Bob X-35*2,235,24
  100. Paste Bob X-35,235,15
  101. Paste Bob X,235,33
  102. Set Zone B+2,P,235 To X+35,270
  103. Limit Mouse 135,249 To 440,300
  104. L=35*6
  105. M=35*3
  106. TERROR:
  107. G=0
  108. For G=1 To 3
  109. Locate 0,10
  110. Bob 0,15,10,G+1
  111. Print At(0,12);"      "
  112. NEENEE:
  113. J=0
  114. For R=1 To 5
  115. J=J+1
  116. Do 
  117. GT=Timer/60
  118. VT=Timer/600
  119. If GT>9 Then Timer=0 : OPA=OPA+1
  120. If OPA>5 Then Bob 1,565,10,1 : Bob 2,600,10,1 : Goto ZEIT
  121.  Bob 1,565,10,VT+OPA
  122.  Bob 2,600,10,GT+1
  123.  C=Mouse Click
  124. If C<>0
  125. V=Mouse Zone : Goto OUT
  126. End If 
  127.  Loop 
  128. OUT:
  129. A=0
  130. B=64
  131. For I=1 To 26
  132. A=A+1
  133. B=B+1
  134. If V=A Then W$=Chr$(B) : Goto OUT2
  135. Next I
  136. If V=27 Then Stop 
  137. If V=28 Then Print At(37,22);"     " : SCHWELLFU�$="" : Goto NEENEE
  138. OUT2:
  139. If J=1 Then Print At(37,22);"     "
  140. If J=1 Then A$=W$ : Q=37
  141. If J=2 Then B$=W$ : Q=38
  142. If J=3 Then C$=W$ : Q=39
  143. If J=4 Then D$=W$ : Q=40
  144. If J=5 Then E$=W$ : Q=41
  145. Print At(Q,22);W$
  146. SCHWELLFU�$=SCHWELLFU�$+W$
  147. Next R
  148. Print At(37,G+13);SCHWELLFU�$
  149. If SCHWELLFU�$=T$ Then SCHWELLFU�$="" : Goto RICHTIG
  150. SCHWELLFU�$=""
  151. Next G
  152. Goto TRIES
  153. TRIES:
  154. Print At(50,15);"     Out of tries!"
  155. Print At(50,16);"the correct answere was"
  156. Print At(50,17);"         ";T$;"         "
  157. Print At(50,18);" Now press any key ..."
  158. Wait Key 
  159. Print At(50,15);"                        "
  160. Print At(50,16);"                        "
  161. Print At(50,17);"                        "
  162. Print At(50,18);"                        "
  163. WRONG=WRONG+1
  164. Goto LOOM
  165. LOOM:
  166. Reserve Zone 
  167. For G=1 To 5
  168. Print At(37,G+13);"      "
  169. Next G
  170. Print At(37,22);"      "
  171. Goto TP
  172. ZEIT:
  173. Print At(50,15);"     Out of time!!"
  174. Print At(50,16);"the correct answere was"
  175. Print At(50,17);"         ";T$;"         "
  176. Print At(50,18);" Now press any key ..."
  177. Wait Key 
  178. Print At(50,15);"                        "
  179. Print At(50,16);"                        "
  180. Print At(50,17);"                        "
  181. Print At(50,18);"                        "
  182. OUTOF=OUTOF+1
  183. Goto LOOM
  184. RICHTIG:
  185. Print At(50,15);"   Yo, that`s it!"
  186. Print At(50,16);"So get ready for the"
  187. Print At(50,17);"   next word ... "
  188. Print At(50,18);" Now press any key ..."
  189. Wait Key 
  190. Print At(50,15);"                        "
  191. Print At(50,16);"                        "
  192. Print At(50,17);"                        "
  193. Print At(50,18);"                        "
  194. RIGHT=RIGHT+1
  195. Goto LOOM
  196. TIMEOUT:
  197. Print At(71,8);"Timeouts:"
  198. If OUTOF>10 Then HUT=HUT+1 : OUTOF=1
  199. If HUT=10 Then HUT=0
  200. Bob 4,565,73,OUTOF/11+HUT
  201. Bob 5,600,73,OUTOF
  202. Return 
  203. FALSCH:
  204. Print At(0,8);"Incorrect:"
  205. If WRONG>10 Then MUT=MUT+1 : WRONG=1
  206. If MUT=10 Then MUT=0
  207. Bob 6,0,73,WRONG/11+MUT
  208. Bob 7,35,73,WRONG
  209. Return 
  210. RRICHTIG:
  211. Print At(0,14);"Correct:"
  212. If RIGHT>10 Then NUTTE=NUTTE+1 : RIGHT=1
  213. If NUTTE=10 Then NUTTE=0
  214. Bob 8,0,120,RIGHT/11+NUTTE
  215. Bob 9,35,120,RIGHT
  216. Return 
  217. LOARD:
  218. Open In 1,"flag"
  219. Input #1,NUMMERN
  220. Close 1
  221. Return 
  222. LORD:
  223. Randomize Timer
  224. NUMMERN=NUMMERN-1
  225. WAS=Rnd(NUMMERN)+1
  226. ST$=Str$(WAS)
  227. Open In 1,ST$
  228. Input #1,T$
  229. Close 1
  230. Return